' Poczenie z aplikacj Expense dziaajc na serwerze Optra.Microsoft.com
Dim configSetting As Configuration = _
   System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration _
      ("/Expense", "1", "Optra.Microsoft.com")

Dim section As System.Configuration.ConfigurationSection = _
   config.GetSection("appSettings")

Dim element As KeyValueConfigurationElement = _
   CType(config.AppSettings.Settings("keySection"), KeyValueConfigurationElement)
        
If Not element Is Nothing Then
   Dim value As String = "Nowa warto"
   element.Value = value
   Try
      config.Save()
   Catch ex As Exception
      Response.Write(ex.Message.ToString())
   End Try
End If
